def PutChar 0xffff

def pc0	0x8000
def pc0l 0x8000
def pc0h 0x8001

start:
	// jsr l2h
	stpc pc0
	ldi 0
	addi 0
	ldm pc0l	
	addi 2+2+3+2+3+3+2+3+3
	stm pc0l
	ldm pc0h
	addi 0
	stm pc0h
	jmp l2h

	ldi 0x59
	stm PutChar
loop:
	jmp loop


foo:	
	ldpc pc0
	
